(url-http-wait-for-headers-change-function): Defer detection of HTTP

0.9 until we have at least one line.

diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el
index 2fb90058b51943590d1ec9d3e821cf3e272fbd7a..dc670188e26ee581e61bf39875134e4352c840cc 100644 (file)
--- a/lisp/url/url-http.el
+++ b/lisp/url/url-http.el
@@ -933,7 +933,8 @@ the end of the document."
            (old-http nil)
            (content-length nil))
        (goto-char (point-min))
-       (if (not (looking-at "^HTTP/[1-9]\\.[0-9]"))
+       (if (and (looking-at ".*\n")    ; have one line at least
+                (not (looking-at "^HTTP/[1-9]\\.[0-9]")))
            ;; Not HTTP/x.y data, must be 0.9
            ;; God, I wish this could die.
            (setq end-of-headers t